RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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1 ~$00 71382 90 bai99 DISKSVMSMASTER:CRUNOFF .SRCIGSLU.BLI:1 >" (1) 
MODULE gslu ( {pent = 'v04-000' 


BLISS32C, ADDRESSING_MODE (EXTERNAL = _LONG_RELATIVE 
' NONEXTERNAL = LONG-RELATIVES J 
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BEGIN 


lenuteueenereanenenennenneeeneteerrentetteerententrnttnntnentnetnensentnetts 
'e 
'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
'‘® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
- ALL RIGHTS RESERVED. : 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
'w INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE O Y OTH * 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF TH * 
a TRANSFERRED. * 
! w 
'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
° CORPORATION. * 
.* 7 
'® DIGITAL ASSUMES NO RESPONS * 
ted SOFTWARE ON EQUIPMENT WHIC * 
'® * 
1 
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IBILITY FOR THE USE OR RELIABILITY OF ITS 
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ie¢ 
FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
ABSTRACT: 


' 

' 

; Collect an unbroken sequence of letters, converting 
all letters to uppercase. 
i 

' 

i 

i 


! ENVIRONMENT: Transportable 
AUTHOR: R.W.Friday CREATION DATE: April, 1978 
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pan "Revision History’ 
MODIFIED BY: 
i 
i 
i 
i 
ie 
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Module Level Declarations 
ZSBITL ‘Module Level Declarations’ 


' 
TABLE OF CONTENTS: 
INCLUDE FILES: 


UIRE ‘REQ:RNODEF'; 


DSRPLUS ZTHEN 
ARY ‘REQ:DPLLIB'; 


ARY ‘REQ:DSRLIB'; 


Dww 
m 


i 
i 
i 
i 
LIB 
REQ 
RIF 
428 

EL 
LIB 
RFI 
' 


EXTERNAL REFERENCES: 


EXTERNAL 
KHAR 


RARY ‘NXPORT: XPORT" ; 


VAX=11 


! XPORT Library 
! RUNOFF variant definitions 


! DSRPLUS BLISS Library 
! DSR BLISS Library 
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Module Level Declarations 


BIND 
IRA = INPUT_STRING : REF FIXED_STRING; 


WHILE 1 DO 
BEGIN 
'Stop on a nonletter. 
IF NOT LETTER (.KHAR) 


RETURN (IF _.FS_LENGTH (OUTPUT STRING) EQL 0 
THEN GSLU_RONE ELSE GSLU_RORMAL); 


iv las eae (OUTPUT_STRING) EQL .FS_MAXSIZE (OUTPUT_STRING) 
(WHILE LETTER (.KHAR) DO (KCNS ()); RETURN GSLU_TOO_LONG); 


FS_WCHAR (OUTPUT STRING, 
CIF jUPPER_LETTER (. KHAR) 


»KHAR ELSE UPPER_CASE (.KHAR))) > 
‘Get next character. 
tend of processing loop. 


END; 'End of GSLU 


f 05 GLOBAL ROUTINE GSLU (INPUT_STRING, OUTPUT_STRING) = 
0 oF 1++ 
i bs FUNCTIONAL DESCRIPTION: 
HE 10 ! GSLU processes an unbroken sequence of letters, 
He 0211 ! stopping when 1) a non-Letter is found, or 
5 0 \¢ ! ) the end of IRA is reached, or 
86 8 1 ! ) OUTPUT_STRING is about to overflow. 
87 14 : ALL letters encountered are transferred to OUTPUT_STRING 
4 8 1? after being first converted to upper case. 
$6 0 Vv FORMAL PARAMETERS: 
9 0 i : INPUT_STRING is the string to be scanned. 
¢ 8 Y } The collected string of letters is left in OUTPUT_STRING. 
95 0 : IMPLICIT INPUTS: None 
97 385 IMPLICIT OUTPUTS: None 
99 226 1 ! ROUTINE VALUE: 
306 COMPLETION CODES: 
$3 See GSLUCC.REQ for completion codes returned. 
H SIDE EFFECTS: None 
: BEGIN 
§ OUTPUT_STRING : REF FIXED_STRING; 
8 
9 
0 
4 
5 
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KCNS () 
END 
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ASTER: CRUNOFF .SRCJGSLU.BLI;1 (4) 


'Throw away excess letters. 
'Convert to upper case and output the letter. 
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00000041 
Q000005A 
00000061 
0000007A 
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00000041 
0000005A 
00000061 
Q000007A 
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GSLU 
tv04-000\ 
KHAR, RINTES 
SCODES,NOWRT,2 
Gstu, Save R2,R3,R4,R5,R6,R7,RB 
OUTPUT_STRING, R4 
OUTPUT“STRING, R7 
OUTPUTSTRING, 


IRA, R 
12(R5), R6 
KHAR, RO 


AR 
RO, #65 

2s 

RO, #90 

RO, #97 

RO, #122 
5$ 


OUTPUT STRING, 
12(RO) 


#RINTES KHAR 
#1, (R35 


@4(RO), KHAR 
4(RO) 


(R3) 
3 

#3, RO 
KHAR, RO 
RO, #65 
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$8200 Module Level Declarations 13-808-1 382 90:08:99 DISKSVMSMASTER: CRUNOFF. SRCJGSLU.BLI;1 page (4) 
9 19 0008 BLSS 128 ; ; 
0000005A BF D 6 83 CMPL RO, #90 ; ; 
1 BA BLEG Ss § : : 
38 § BC \¢3 SUBL2 #32, RO : F 
06 =«#6#=8B Bf 15$ MOVB RO, @4(R2) : $ 
04 A2 0 C INCL  4(R2) : ; 
. mB c8 INCL 12(R4) : 3 
§ 1) C TSTL nt : 0257 3 
14 000¢B BGTR 14 : ; 
68 006 F OA CD MOVZBL #RINTES, KHAR : 3 
x3 1 cE 0001 MNEGL #1, (ROS : ; 
09 1 pe BRB 15$ : ; 
68 06 B5 9A D6 14$ MOVZBL @4(R5), KHAR : 3 
04 AS Dd ODA INCL 4(R5) : $ 
6 3 0000 DECL (R6) : : 
FF3B 31 OOODF 158: BRW 18 : ; 
; Routine Size: 226 bytes, Routine Base: S$CODE$ + 0000 ; 
: 134 0261 : 
: 135 pseg ft 'End of module ; 
; 13% 026 0 ELuDOM : 
; PSECT SUMMARY 2 
; Name Bytes Attributes 2 
: SCODES 226 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
; Library Statistics ; 
A gece ee fal en Lee Symbols -------- Pages Processing ; 
3 File Total Loaded Percent Mapped Time : 
: _$255$DUA vst 83x? ORT.L32;1 9 0 252 0:00.1 : 
; TSSzSDUASB: ERUNOF SRC IDSRL 16.L32:1 1368 7 1 86 80:00:3 : 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=L1IS$:GSLU/OBJ=O0BJ$:GSLU MSRC$:GSLU/UPDATE=(ENH$:GSLU) ; 


3; Size: 226 code + 0 data bytes 


; COMMAND QUALIFIERS 
| 
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